home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 November: Tool Chest / Dev.CD Nov 94.toast / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / interfaces / PInterface Translator / PInterfaces / ConnectionTools.p < prev    next >
Encoding:
Text File  |  1993-09-16  |  2.4 KB  |  129 lines  |  [TEXT/MPS ]
  1. {
  2.     ConnectionTools.p
  3.     Pascal Interface to the Connection Manager Tools.
  4.     
  5.     Copyright © Apple Computer, Inc. 1988-90
  6.     All rights reserved
  7. }
  8.  
  9. {$IFC UNDEFINED UsingIncludes}
  10. {$SETC UsingIncludes := 0}
  11. {$ENDC}
  12.  
  13. {$IFC NOT UsingIncludes}
  14.     UNIT ConnectionTools;
  15.     INTERFACE
  16. {$ENDC}
  17.  
  18. {$IFC UNDEFINED UsingConnectionTools}
  19. {$SETC UsingConnectionTools := 1}
  20.  
  21. {$I+}
  22. {$SETC ConnectionToolsIncludes := UsingIncludes}
  23. {$SETC UsingIncludes := 1}
  24.  
  25. {$IFC UNDEFINED UsingDialogs}
  26. {$I $$Shell(PInterfaces)Dialogs.p}
  27. {$ENDC}
  28.  
  29. {$IFC UNDEFINED UsingConnections}
  30. {$I $$Shell(PInterfaces)Connections.p}
  31. {$ENDC}
  32.  
  33. {$SETC UsingIncludes := ConnectionToolsIncludes}
  34.  
  35. CONST    
  36. {    messages                        }
  37.  
  38.     cmInitMsg         =    0;
  39.     cmDisposeMsg     =    1;
  40.     cmSuspendMsg    =    2;
  41.     cmResumeMsg     =    3;
  42.     cmMenuMsg         =    4;
  43.     cmEventMsg         =    5;
  44.     cmActivateMsg     =    6;
  45.     cmDeactivateMsg =    7;
  46.     
  47.     cmIdleMsg         =    50;
  48.     cmResetMsg         =    51; 
  49.     cmAbortMsg         =    52;
  50.     
  51.     cmReadMsg         =    100;
  52.     cmWriteMsg         =    101;
  53.     cmStatusMsg     =    102;
  54.     cmListenMsg     =    103;
  55.     cmAcceptMsg        =    104;
  56.     cmCloseMsg         =    105;
  57.     cmOpenMsg        =    106;
  58.     cmBreakMsg         =     107;
  59.     cmIOKillMsg        =    108;
  60.     cmEnvironsMsg     =    109;
  61.  
  62.     
  63. {    messages for validate DefProc    }
  64.     cmValidateMsg    =    0;
  65.     cmDefaultMsg    =    1;
  66.     
  67.     
  68. {    messages for Setup DefProc    }
  69.     cmSpreflightMsg =     0;
  70.     cmSsetupMsg        =    1;
  71.     cmSitemMsg        =    2;
  72.     cmSfilterMsg    =    3;
  73.     cmScleanupMsg    =    4;
  74.     
  75. {    messages for scripting defProc    }
  76.     cmMgetMsg    =    0;
  77.     cmMsetMsg    =    1;
  78.     
  79.     
  80. {    messages for localization defProc    }
  81.     cmL2English    =    0;
  82.     cmL2Intl    =    1;
  83.  
  84.     
  85.     cdefType         =    'cdef';        { main connection definition procedure    }
  86.     cvalType         =    'cval';        { validation definition procedure    }
  87.     csetType         =    'cset';        { connection setup definition procedure    }
  88.     clocType        =    'cloc';        { connection configuration localization defProc    }
  89.     cscrType        =    'cscr';        { connection scripting defProc interfaces    }
  90.     
  91.     cbndType        =    'cbnd';        { bundle type for connection }
  92.     cverType        =    'vers';        
  93.     
  94.     
  95. TYPE
  96.     CMDataBufferPtr    =    ^CMDataBuffer;
  97.     CMDataBuffer    =    RECORD
  98.         thePtr        :    Ptr;
  99.         count        :    LONGINT;
  100.         channel        :    CMChannel;
  101.         flags        :    CMFlags;
  102.     END;
  103.     
  104.     CMCompletorPtr        =    ^CMCompletorRecord;
  105.     CMCompletorRecord    =    RECORD
  106.         async                    :    BOOLEAN;
  107.         completionRoutine        :    ProcPtr;
  108.     END;
  109.     
  110.  
  111.     
  112.     {    Private Data Structure    }
  113.     
  114.     CMSetupPtr         = ^CMSetupStruct;
  115.     CMSetupStruct     = RECORD
  116.         theDialog     :     DialogPtr;
  117.         count        :    INTEGER;
  118.         theConfig    :    Ptr;
  119.         procID        :    INTEGER;        { procID of the tool    }
  120.     END;
  121.     
  122. {$ENDC} {UsingConnectionTools}
  123.  
  124. {$IFC NOT UsingIncludes}
  125.     END.
  126. {$ENDC}
  127.  
  128.  
  129.